home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
dialogic.zip
/
TEMPLATE.DOC
< prev
Wrap
Text File
|
1990-01-31
|
7KB
|
161 lines
'
'This file is meant to be loaded as a document in the QuickBASIC 4.x
' editor. This file contains template definitions for each dialog box
' element.
'
'Each DBE is clearly marked. Please note that the subscripts remain
' incomplete except for the dialog box window. This was done so
' that the parentheses can be filled later with numerical values
' after they have been 'pasted' into your dialog box include file.
' Further descriptions are available in Appendix A of the DiaLogic
' manual.
'=============================================
'The template end code
' (must be used at the end of every template)
'=============================================
DB(Level%, ).Code = 0 'Dialog box template end code
'================================
'The Window
' (must have a subscript of one)
'================================
DB(Level%, 1).Code = 1 'Window code
DB(Level%, 1).Y = 'Y coordinate of upper-left corner
DB(Level%, 1).X = 'X coordinate of upper-left corner
DB(Level%, 1).Height = 'Height
DB(Level%, 1).Wdth = 'Width
DB(Level%, 1).BorderType = 'Border type (- gives exploding window)
DB(Level%, 1).PrimaryColor = 'Border color (- gives shadowed window)
DB(Level%, 1).WindowColor = 'Window color (- gives horiz bottom line)
DB(Level%, 1).Text = 'Window title
DB(Level%, 1).TextColor = 'Window title color
DB(Level%, 1).SecondaryColor = 'Horizontal line color (if present)
DB(Level%, 1).NumberOne = 'Screen rows (25 lines assumed)
'================================
'Text Box
'================================
DB(Level%, ).Code = 2 'Text Box code
DB(Level%, ).Y = 'Y coordinate of upper-left corner
DB(Level%, ).X = 'X coordinate of upper-left corner
DB(Level%, ).Wdth = 'Width
DB(Level%, ).BorderType = 'Border type
DB(Level%, ).PrimaryColor = 'Border color
DB(Level%, ).WindowColor = 'Window color
DB(Level%, ).SelectedColor = 'Selected window color
DB(Level%, ).TextY = 'Y for text
DB(Level%, ).TextX = 'X for text
DB(Level%, ).Text = 'Label text
DB(Level%, ).TextColor = 'Label text color
DB(Level%, ).KeyColor = 'Key color
DB(Level%, ).TextString = 'Text box default string
DB(Level%, ).ItemLength = 'Maximum entry length
DB(Level%, ).NumberOne = 'Text default string length
'================================
'List Box
'================================
DB(Level%, ).Code = 3 'List Box Code
DB(Level%, ).Y = 'Y coordinate of upper-left corner
DB(Level%, ).X = 'X coordinate of upper-left corner
DB(Level%, ).Height = 'Height of list box
DB(Level%, ).Wdth = 'Length of list box
DB(Level%, ).WindowColor = 'Window color (-1 for no selection)
DB(Level%, ).PrimaryColor = 'Primary color of list box items
DB(Level%, ).SecondaryColor = 'Secondary color
DB(Level%, ).SelectedColor = 'Selected color
DB(Level%, ).StarColor = 'Scroll color
DB(Level%, ).ItemLength = 'Item length
DB(Level%, ).KeyColor = 'Item space
DB(Level%, ).BorderType = 'Scroll bar
DB(Level%, ).Link = 'Link code
DB(Level%, ).TextY = 'Sentence-link Y coordinate
DB(Level%, ).TextX = 'Sentence-link X coordinate
DB(Level%, ).TextColor = 'Link color
DB(Level%, ).NumberOne = 'LB() start element
DB(Level%, ).NumberTwo = 'LB() end element
DB(Level%, ).Default = 'If non-zero, the list box will select
' the LB() item specified here
'================================
'Check Box
'================================
DB(Level%, ).Code = 4 'Code for Check Box
DB(Level%, ).Y = 'Y coordinate of left bracket
DB(Level%, ).X = 'X coordinate of left bracket
DB(Level%, ).PrimaryColor = 'Box color
DB(Level%, ).SelectedColor = 'Selected color
DB(Level%, ).TextY = 'Label text Y coordinate
DB(Level%, ).TextX = 'Label text X coordinate
DB(Level%, ).Text = 'Label text
DB(Level%, ).TextColor = 'Text color
DB(Level%, ).KeyColor = 'Key color
DB(Level%, ).StarColor = 'Star Color
DB(Level%, ).Default = 'Default
'================================
'Option Buttons
'================================
DB(Level%, ).Code = 5 'Code for Option Buttons
DB(Level%, ).NumberOne = 'Number of option buttons in this cluster
DB(Level%, ).Default = 'Default option button
DB(Level%, ).TextString = 'Location string (delimiter = ,)
DB(Level%, ).WindowColor = 'Button color (of parentheses)
DB(Level%, ).SelectedColor = 'Selected color (of dot)
DB(Level%, ).StarColor = 'Star color
'================================
'Label/Smart Label
'================================
DB(Level%, ).Code = 6 'Code for Label/Smart Label
DB(Level%, ).Y = 'Y coordinate
DB(Level%, ).X = 'X coordinate
DB(Level%, ).Text = 'Label text
DB(Level%, ).TextColor = 'Label color
DB(Level%, ).KeyColor = 'Key color
DB(Level%, ).Link = 'Sequence link number
DB(Level%, ).NumberOne = 'Option button smart label:
'--> Button number in cluster
'================================
'Command Button
'================================
DB(Level%, ).Code = 7 'Code for Command Button
DB(Level%, ).Y = 'Y coordinate of upper-left corner
DB(Level%, ).X = 'X coordinate of upper-left corner
DB(Level%, ).Text = 'Command button text
DB(Level%, ).PrimaryColor = 'Border color
DB(Level%, ).SecondaryColor = 'Angle bracket active color
DB(Level%, ).WindowColor = 'Button color
DB(Level%, ).SelectedColor = 'Selected color
DB(Level%, ).KeyColor = 'Key color
DB(Level%, ).Default = '-1 if default command; else zero
DB(Level%, ).TextString = 'Ky$ command button key
'================================
'Group Box
'================================
DB(Level%, ).Code = 8 'Code for Group Box
DB(Level%, ).Y = 'Y coordinate of upper-left corner
DB(Level%, ).X = 'x coordinate of upper-left corner
DB(Level%, ).Height = 'Height
DB(Level%, ).Wdth = 'Width
DB(Level%, ).BorderType = 'Border type
DB(Level%, ).SecondaryColor = 'Border color
DB(Level%, ).Text = 'Centered text
DB(Level%, ).TextColor = 'Centered text color